library(lattice)

conn <- odbcDriverConnect("case=nochange; DBQ=C:\\temp\\soil.mdb; DefaultDir=C:\\temp; Driver={Microsoft Access Driver (*.mdb)}; DriverId=25; FIL=MS Access; FILEDSN=C:\\temp\\soil.mdb; MaxBufferSize=2048; MaxScanRows=8; PageTimeout=5; SafeTransactions=0; Threads=3; UID=admin; UserCommitSync=Yes")
d <- sqlFetch(conn, "qry_mtp ENTS screen (01)")


pdf("C:\\temp\\zzz.pdf",width=17,height=11)
par(mfrow=c(5,6))

sapply(levels(d$Parameter),
  function (x) { 
    plot(density(d$Result[d$Parameter==x]), main=x)  
  }
)

stripplot(Parameter ~ log(MagExceedance), xlim=c(0,ceiling(log(max(na.omit(MagExceedance))))), data=d)
boxplot(MagExceedance ~ Parameter, log="x", data=d, xlab="Magnitude of Screening Exceedance", horizontal=T)

dev.off()

odbcClose(conn)



